home *** CD-ROM | disk | FTP | other *** search
/ The Ultimate Frank Lloyd…ght - America's Architect / Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso / pre / flw / flwlb33.dir / 00131_Script_131 < prev    next >
Text File  |  1994-11-15  |  2KB  |  89 lines
  1. on startMovie
  2.   global nowFrame, currMM
  3.   set currMM = "FLWWT"
  4.   
  5.   global seeAlsoness
  6.   set seeAlsoness = FALSE
  7.   
  8.   preLoadCast 1,3
  9.   
  10.   puppetSprite 21, TRUE
  11.   puppetSprite 22, TRUE
  12.   puppetSprite 23, TRUE
  13.   
  14.   puppetSprite 11, TRUE
  15.   
  16.   set the immediate of sprite 23 to TRUE
  17.   set the stretch of sprite 23 to FALSE
  18. end startMovie
  19.  
  20. on saveLocals
  21.   global lastMovie, lastFrame, nowFrame
  22.   set lastFrame = nowFrame
  23.   set lastMovie = "FLWLB33"
  24. end saveLocals
  25.  
  26. on buttonState
  27.   global FrankNav, bFlag
  28.   
  29.   if rollover(11) then
  30.     set the castNum of sprite 11 to 1090
  31.     if the mouseDown then
  32.       set the castNum of sprite 11 to 1091
  33.     end if
  34.   else 
  35.     set the castNum of sprite 11 to 1089
  36.   end if
  37.   
  38.   if rollover(5) then
  39.     rollCheck
  40.   else 
  41.     set pos = 0
  42.     cursor -1
  43.   end if
  44.   
  45.   if (the mouseV > 400) or (bFlag = TRUE) then
  46.     doState
  47.   end if
  48. end buttonState
  49.  
  50. on rollCheck
  51.   global right, left, forw, down, pos
  52.   if the mouseH>=257 and the mouseH<=347 and the mouseV>67 and the mouseV<307 then
  53.     if right = 1 then
  54.       set pos = 3
  55.       cursor [1065,1066]
  56.     else
  57.       set pos = 0
  58.       cursor [1071,1072]
  59.     end if
  60.   else if the mouseH>=27 and the mouseH<=119 and the mouseV>67 and the mouseV<307 then
  61.     if left = 1 then
  62.       set pos = 1
  63.       cursor [1069,1070]
  64.     else
  65.       set pos = 0
  66.       cursor [1071,1072]
  67.     end if
  68.   else if the mouseH>=117 and the mouseH<=257 and the mouseV>67 and the mousev<217 then
  69.     if forw = 1 then
  70.       set pos = 2
  71.       cursor [1067,1068]
  72.     else
  73.       set pos = 0
  74.       cursor [1071,1072]
  75.     end if
  76.   else if the mouseH>=117 and the mouseH<=257 and the mouseV>217 and the mouseV<307 then
  77.     if down = 1 then
  78.       set pos = 4
  79.       cursor [1073,1074]
  80.     else if down = 0 and forw = 1 then
  81.       set pos = 2 
  82.       cursor [1067,1068]
  83.     else
  84.       set pos = 0
  85.       cursor [1071,1072]
  86.     end if
  87.   end if
  88. end rollCheck
  89.